懂VB的进来"急"

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
while n<10000
If KeyCode = 13 Then '按下回车试试
MsgBox "猪头啊,笨蛋啊!", , "哈哈"
End If
n=n+1
wend '弹出一万个对话框
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '按下回车试试
MsgBox "猪头啊,笨蛋啊!", , "哈哈"
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

不用1楼这么麻烦
可以这样写
Private Sub Command1_Click()
MsgBox "（这里填写要说的话）", , "（这里填写标题）"
MsgBox "（这里填写要说的话）", , "（这里填写标题）"
End Sub

然后从msgbox开始 你想复制多少都行
每多一行 可以多弹出一个对话框

'请手动添加一个按钮控件
Private Sub Command1_Click()
MsgBox "猪头啊,笨蛋啊!", , "哈哈!~~要怎么"
End Sub

也是当时写着玩的一个根袮要求的差不多
呵呵
懂VB的进来"急" 急!!!!!!!懂VB的进来! 懂vb的进来 懂VB的进来~ 懂VB的进来 懂vb的进来帮个忙！！！！！！！！！！！！！！ 懂"性"的朋友们进来看看..急!!!!!!! VB的问题，请懂VB的都进来指点 懂VB 的大侠进来指点一下 懂VB的进来指点一下